home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / HyperCard / CambridgeMedlineTutor / ccMedTut2 / card_18160.txt < prev    next >
Encoding:
Text File  |  1992-02-24  |  4.5 KB  |  185 lines
  1. -- card: 18160 from stack: in
  2. -- bmap block id: 18212
  3. -- flags: 0000
  4. -- background id: 11419
  5. -- name: 
  6. ----- HyperTalk script -----
  7. --Hidden field - card field id 21
  8.  
  9. --Handlers below are not very elegant, but they work - should be able to put the EnterInField script as part of On ArrowKey handler, under option that goes to next card, but I can't get this to work - does work this way, mapping arrow action to another handler - Chose Enter InField just because it's a handler that won't ever be used for any thing else [in fact, can't be used for most part, because stack is pro tected & user can't get cursor in field]
  10.  
  11. On ArrowKey which
  12.   if which is "right" then EnterInField
  13.   else if which is "down" then beep
  14.   else if which is "left" then beep
  15.   else if which is "up" then beep
  16. End ArrowKey
  17.  
  18. On EnterInField
  19.   global x
  20.   lock screen
  21.   go next
  22.   hide card field "red"
  23.   unlock screen
  24.   wait x
  25.   lock screen
  26.   show card field "red"
  27.   unlock screen with dissolve
  28. End EnterInField
  29.  
  30.  
  31.  
  32. -- part 20 (field)
  33. -- low flags: 00
  34. -- high flags: 0000
  35. -- rect: left=149 top=270 right=288 bottom=212
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 0
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 2048
  42. -- line height: 16
  43. -- part name: 
  44.  
  45.  
  46. -- part 27 (field)
  47. -- low flags: 00
  48. -- high flags: 0000
  49. -- rect: left=78 top=80 right=99 bottom=391
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 0
  53. -- font id: 3
  54. -- text size: 12
  55. -- style flags: 256
  56. -- line height: 16
  57. -- part name: 
  58.  
  59.  
  60. -- part 28 (field)
  61. -- low flags: 00
  62. -- high flags: 0000
  63. -- rect: left=31 top=80 right=98 bottom=74
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 0
  67. -- font id: 3
  68. -- text size: 12
  69. -- style flags: 256
  70. -- line height: 16
  71. -- part name: 
  72.  
  73.  
  74. -- part 29 (field)
  75. -- low flags: 00
  76. -- high flags: 0000
  77. -- rect: left=395 top=80 right=98 bottom=495
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 0
  81. -- font id: 3
  82. -- text size: 12
  83. -- style flags: 256
  84. -- line height: 16
  85. -- part name: 
  86.  
  87.  
  88. -- part 36 (field)
  89. -- low flags: 00
  90. -- high flags: 2004
  91. -- rect: left=2 top=116 right=325 bottom=139
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 0
  95. -- font id: 3
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 18
  99. -- part name: red
  100.  
  101.  
  102. -- part contents for card part 1
  103. ----- text -----
  104. "SMOKING:PC"[MJ,MN] OR 
  105.  
  106. -- part contents for card part 2
  107. ----- text -----
  108. 466 [MED90]1988]
  109.  
  110. -- part contents for card part 20
  111. ----- text -----
  112. Search
  113.  
  114. -- part contents for card part 21
  115. ----- text -----
  116.    The search retrieved 9 articles on BODY IMAGE and DIET, REDUCING. To display the first one of these citations, use the DISPLAY command - Move the highlight to Display by hitting the right arrow key ...
  117.  
  118. -- part contents for card part 22
  119. ----- text -----
  120. #4:
  121.  
  122. -- part contents for card part 23
  123. ----- text -----
  124. #2
  125.  
  126. -- part contents for card part 25
  127. ----- text -----
  128. 410 [MED90]
  129.  
  130. -- part contents for card part 26
  131. ----- text -----
  132. "SMOKING:TH"[MJ,MN] . . . . . . .
  133.  
  134. -- part contents for card part 28
  135. ----- text -----
  136. #1
  137.  
  138. -- part contents for card part 29
  139. ----- text -----
  140.  95 [MED90]
  141.  
  142. -- part contents for card part 30
  143. ----- text -----
  144. #3
  145.  
  146. -- part contents for card part 24
  147. ----- text -----
  148. "SMOKING:TH" [MJ,MN]  . . . . . . . . . . . . . . .
  149.  
  150. -- part contents for card part 27
  151. ----- text -----
  152. "SMOKING CESSATION"[TI]  . . . . . . . . . . . .
  153.  
  154. -- part contents for card part 31
  155. ----- text -----
  156. "SMOKING:PC"[MJ,MN]   . . . . . . . . . . . . . . .
  157.  
  158. -- part contents for card part 32
  159. ----- text -----
  160.  63 [MED90]
  161.  
  162. -- part contents for background part 3
  163. ----- text -----
  164. Search Menu
  165.  
  166. -- part contents for background part 8
  167. ----- text -----
  168. 44566
  169.  
  170. -- part contents for background part 13
  171. ----- text -----
  172.  
  173.  
  174.  
  175. -- part contents for card part 33
  176. ----- text -----
  177. The search retrieved 9 articles on BODY IMAGE and DIET, REDUCING. To display the first one of these citations, use the DISPLAY command - Move the highlight to Display by hitting the right arrow key ...
  178.  
  179. -- part contents for card part 35
  180. ----- text -----
  181.    Now, to broaden our search on the subject of SMOKING CESSATION, let's search for articles on either "Smoking:TH" or "Smoking:PC," as MeSH terms. Hit RETURN & the search will be run automatically.   
  182.  
  183. -- part contents for card part 36
  184. ----- text -----
  185.    Now, to broaden our search on            'smoking cessation' let's search for articles on either "Smoking:TH" or "Smoking:PC" as MeSH terms. The search will run automatically.